EERSTE INDRUK INVR BZV1 ".$invr_bzv1." INVR BZV2 ".$invr_bzv2." INVR DOMN ".$invr_domn."
"; $onderwerpen=text_isrt($invr_taal."@onderwerpen"); $bezoeker=text_isrt($invr_taal."@bezoeker"); $aanmelden=text_isrt($invr_taal."@aanmelden"); $invr_datm=$datm; if ($invr_taal== null) { $invr_taal="nederlands"; } // $bzv_rslt=xtrt_xxxx("----",$invr_taal,"bzv1"); if ($invr_domn == null and $invr_bzv1 == null) { $invr_func="null"; $new_domn="nieuw onderwerp"; $new_bzv1="nieuwe uiting"; } if ($invr_domn != null and $invr_bzv1 == null) { $invr_func="domn"; $new_bzv1=$invr_domn; $new_domn=$invr_domn; } if ($invr_domn != null and $invr_bzv1 != null) { $invr_func="full"; $new_bzv1=$invr_bzv1; $new_domn=$invr_domn; } if ($invr_domn == null and $invr_bzv1 != null) { $invr_func="bzv1"; $new_bzv1=$invr_bzv1; $new_domn=$invr_bzv1; } // echo "
FUNC ".$invr_func; $prev_bzv1=$invr_lgrm; // echo "
NEW DOMN ".$new_domn." BZV1 ".$new_bzv1; $invr_bzv1=$new_bzv1; /////////////// $mb_rslt=preg_split('/(?"; foreach($mb_rslt as $mb_key => $mb_val) { $mb_lowr=mb_strtolower($mb_val,'UTF-8'); $mb_text=$mb_text.$mb_lowr; } // echo "
TEST TLKD MB TEXT ".$mb_text; $mb_dtls=explode(" ",$mb_text); $new_mb=""; $tl=0; foreach($mb_dtls as $mb_key => $mb_val) { // echo "
KEY ".$mb_key." VAL ".$mb_val; $new_mb=$new_mb." ".$mb_val; } trim($new_mb); $unew_mb=urlencode($new_mb); $new_lnks=mb_strtolower($unew_mb); // echo "
NEW LINE ".$new_lnks; $line=urldecode($new_lnks); $strn_val=$line; $perd_bzv1=str_replace("-",".",$strn_val); $perd_bzv1=str_replace(",",".",$perd_bzv1); $perd_bzv1=strtolower($perd_bzv1); $line_itms=explode(".",$perd_bzv1); // print_r($line_itms); /////////////////////////////// $invr_domn=$new_domn; $invr_bzv1=str_replace("+"," ",$invr_bzv1); $invr_bzv1=str_replace(" u "," uwe ",$invr_bzv1); $invr_domn=str_replace("+"," ",$invr_domn); $invr_domn=str_replace(" u "," uwe ",$invr_domn); $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $sinvr_domn=str_replace(" ","+",$invr_domn); $bzv1_itms=explode(" ",$invr_bzv1); $bzv1_cntr=count($bzv1_itms); $taal_rslt=bepl_taal($invr_bzv1); asort($taal_rslt); foreach($taal_rslt as $taal_key => $taal_val) { $text_taal=$taal_key; $invr_taal=$text_taal; } echo "
Aantal woorden ".$bzv1_cntr." in het ".$text_taal; // print_r($taal_rslt); // $invr_domn=$invr_domn."
".$invr_bzv1; $chbt_resp=$invr_domn." bzkr ".$invr_bzv1." chbt ".$invr_bzv2; $smts_rslt=tlkd_smts($invr_bzv1); krsort($smts_rslt); echo ""; $ca=0; foreach($smts_rslt as $smts_key => $smts_val) { // echo "
SMTS KEY ".$smts_key." SMTS VAL ".$smts_val; $smts_itms=explode("!!",$smts_key); $smts_type=$smts_itms[0]; $smts_sgmt=$smts_itms[1]; $smts_text=$smts_itms[2]; if ($srelt != $smts_text) { // echo "
SRELT ".$srelt." SMTS TEXT ".$smts_text; $csmts_text = $smts_text; $srelt=$smts_text; } $smts_posn=$smts_itms[3]; $aiml_templ=$smts_text; if ($smts_posn == 50) { $aiml_ptrn="* ".$smts_sgmt." *"; } if ($smts_posn == 99) { $aiml_ptrn=$smts_sgmt." *"; } if ($smts_posn == 0) { $aiml_ptrn="* ".$smts_sgmt; } // $aiml = "".$aim.""; // $aiml_text="<category><topic>""</topic><pattern>".$invr_lnks."</pattern><template>".$invr_bzv1."</template></category>"; $ssmts_sgmt=str_replace(" ","+",$smts_sgmt); $sgmt_itms=explode(" ",$smts_sgmt); $cmds_ipad=$userip; $cmds_bzv2=$smts_sgmt."[splt[".$text_taal."[".$invr_domn."@".$invr_chbt."[".$invr_bzv1."[".$smts_posn; // echo "
BZV1 ".$cmds_bzv2."
"; include ("chbt-cmds-code-2.php"); $cmds_bzv2=$smts_sgmt."[vrag[".$text_taal."[".$invr_domn."@".$invr_chbt."[".$invr_bzv1."[".$smts_posn; // echo "
VRAG ".$cmds_bzv2."
"; include ("chbt-cmds-code-2.php"); $ca=$ca+1; if (count($sgmt_itms) > 2) { $rule_rslt=xtrt_xxxx("xdotx".$smts_sgmt,$text_taal,"rule"); ksort($rule_rslt); // print_r($rule_rslt); foreach ($rule_rslt as $tref_key => $tref_val) { // echo "
SMTS BASED RULE KEY ".$tref_key."TREF VAL ".$tref_val; $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $rslt_array[$tref_domn."!!".$tref_antw."!!".$smts_posn]=$rslt_array[$tref_domn."!!".$tref_antw."!!".$smts_posn]+1; } $splt_rslt=xtrt_xxxx("xdotx".$smts_sgmt,$text_taal,"splt"); ksort($splt_rslt); // print_r($splt_rslt); foreach ($splt_rslt as $tref_key => $tref_val) { // echo "
SMTS BASED SPLT ".$tref_key."TREF VAL ".$tref_val; $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $Splt_array[$tref_domn."!!".$tref_antw]=$rslt_array[$tref_domn."!!".$tref_antw]+1; } } } echo "
".$csmts_text; // print_r($splt_array); foreach($rslt_array as $rslt_key => $rslt_val) { // echo "
SPLT ARRAY SPLT KEY ".$rslt_key." RSLT VAL ".$rslt_val; $key_itms=explode("!!",$rslt_key); // print_r($key_itms); $key_domn=substr($key_itms[0],1,32); $key_antw=$key_itms[1]; $key_posn=$key_itms[2]; $tkey_domn=text_isrt($text_taal."@".$key_domn); $chbt_resp=$chbt_resp." chbt ".$key_antw; // echo "

---

SMTS RSLT ".$invr_bzv1."INVR BZV2 ".$invr_bzv2." INVR DOMN ".$invr_domn." CHBT RESP ".$chbt_resp; echo ""; if (($key_posn == 0 or $key_posn == 50 or $key_posn == 99 ) and count($sgmt_itms) > 1 and $key_antw != "splt") { // echo "
AIML POSN ".$smts_posn." PTRN ".$aiml_ptrn; $aiml_text="<category><pattern>".$aiml_ptrn."</pattern><template>".$key_antw."</template></category>"; $aiml_text=urldecode($aiml_text); // echo "
VERWERKING LNKS VRAAG IS BEKEND AIML TEXT ".$aiml; $sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`levl`,`domn`,`datm`) VALUES (NULL,'1','$aiml_text','$aiml_ptrn','','$key_antw','','isrt_rule.aiml', '$smts_posn','$key_domn','$datm')"; mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES utf8"); $logentry_result = mysql_query($sql1, $link); // $last_rcrd=return $logentry_result->insert_id; $psmts_sgmt="".$smts_sgmt."--"; $lsmts_sgmt="".$psmts_sgmt.""; $csmts_text=str_replace($smts_sgmt,$lsmts_sgmt,$csmts_text); // echo "
C SMTS TEXT ".$csmts_text; } } echo "

".$tkey_domn."

".$key_antw."

"; // print_r($smts_rslt); $bz2=0; if ($invr_name != null) { echo "
Hallo ".$invr_name." weer op bezoek bij ".$invr_corp; $bzv2_array[$bz2]="Hallo ".$invr_name." weer op bezoek bij ".$invr_corp; $bz2=$bz2+1; } if ($invr_name == null) { // echo "
U blijft liever anoniem, geen probleem, ik gebruik bezoeker als uw naam"; $bzv2_array[$bz2]="U blijft liever anoniem, geen probleem, ik gebruik bezoeker als uw naam"; $bz2=$bz2+1; $invr_name="bezoeker"; } if ($invr_name == null) { // echo "Hallo ik ben ".$invr_chbt." de chabotleraar van ".$invr_corp." en wat zijn uw naam en/of email-adres? "; ?>

---

>

extern mail ".$invr_mail; } else { $bzkr_name=$_POST[name]; $sem_domn="intern"; // echo "
intern mail".$invr_mail; } } if ($invr_name != null) { // echo "
Welkom ".$invr_name.""; } // echo "
".$lgroet; $bzkr_array=xtrt_xxxx($invr_name,"nederlands","bzkr"); // echo "
BWRK BZKR Userip ".$userip; // print_r($bzkr_array); // echo "
BWRK BZKR Userip ".$userip; /////////////////// /////////////////////////////////// $chbt_hello=""; if ($invr_name == null) { $invr_name="bezoeker"; } $lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_name); // echo print_r($lgroet); $today = getdate(); $weekdag=$today['weekday']; if ($weekdag =="Sunday") { $weekdag="zondag"; } if ($weekdag == "Monday") { $weekdag="maandag"; } if ($weekdag =="Tuesday") { $weekdag="dinsdag"; } if ($weekdag =="Wednesday") { $weekdag="woensdag"; } if ($weekdag =="Thursday") { $weekdag="donderdag"; } if ($weekdag =="Friday") { $weekdag="vrijdag"; } if ($weekdag =="Saturday") { $weekdag="zaterdag"; } foreach ($lgroet as $key => $val) { // echo "
".$key." ".$val; if ($key == "tijdstip") { $chbt_hello=$chbt_hello." ".$val; } if ($key == "datum") { $chbt_hello=$chbt_hello." ".$val; $datm=$val; } if ($key == "groet") { $chbt_hello=$chbt_hello." ".$val; $datm=$val; } } echo "
".$chbt_hello; if ($invr_chbt == null) { $invr_chbt="semantus"; } if ($invr_taal == null) { $invr_taal="nederlands"; } if ($invr_corp == null) { $invr_corp="semanta"; } if ($invr_domn == null) { // $invr_domn= "Beste ".$invr_name." u kunt spreken met ".$invr_chbt." en de taal is ".$invr_taal." Wat kan ik voor u betekenen."; } ////////////////////////////////////// // echo "Het onderwerp van gesprek is ".$invr_domn; ////////////////// CHECK BEZOEKER ////////////////// if ($invr_ipad == null) { $invr_ipad=$userip; } if ($invr_ipad != null) { $userip=$invr_ipad; } ////////////////////////// $infr_array=chck_infr($userip); // echo "
INFR ARRAY NULSTAND "; // print_r($infr_array); $land_array=infr_taal($infr_array[ipad]); // echo "
LAND
"; // print_r($land_array); $taal_array=$land_array[taal]; // sort($taal_array); // echo "
TALEN
"; // print_r($taal_array); arsort($taal_array); // echo "
TALEN
"; $infr_array[taal]=$taal_array[0]; $infr_taal=$land_array[0]; $infr_array[ipcd]=$land_array[ipcode]; $infr_array[land]=$land_array[land]; $infr_array[bezoeker]=$invr_bzkr; $infr_array[name]=$bzkr_name; $bzkr_land=$land_array[land]; $bzkr_ipad=$infr_array[ipad]; $bzkr_taal=$infr_array[taal]; $wiki_taal=text_isrt($invr_taal."@".$invr_taal); $invr_ipcd=$land_array[ipcd]; // $invr_lgcd=taal_ipcd($invr_taal); // echo "
LGCD ".$invr_lgcd; $bzkr_land=strtolower($bzkr_land); $sbzkr_land=str_replace(" ","+",$bzkr_land); $pbzkr_land=text_isrt($invr_taal."@".$bzkr_land); $img_land=mb_strtolower($bzkr_land,'UTF-8'); $img_land=str_replace(" ","_",$img_land); $img_land=urlencode($img_land); $img_lngt=strlen($img_land); // echo "
IMG LNGT ".$img_lngt; $img_eol=substr($img_land,$img_lngt-6,6); if( $img_eol == "%C3%AB") { $img_land=str_replace("%C3%AB","e",$img_land); } echo ""; foreach($infr_array as $infr_key => $infr_val) { // echo ""; } $url_itms=(parse_url($infr_array[host])); // print_r($url_itms); $bzkr_host=$url_itms[host]; $host_mail=$invr_name."@".$bzkr_host; // echo "
Gebruikersnaam :".$host_mail; echo "

".$infr_key."

".$infr_val."

"; $rslt_array=xtrt_xxxx("----",$text_taal,"bzv1"); // print_r($rslt_array); krsort($rslt_array); $cntr_domn=count($rslt_array); if ($cntr_domn == 0) { $domn_domn=$invr_domn; } if ($cntr_domn > 0) { // echo "
Onderwerpen van vandaag ".$datm_datm;; echo ""; foreach($rslt_array as $rslt_key => $rslt_val) { $rule_itms=explode("!!",$rslt_key); $tref_datm=$rule_itms[0]; $tref_ipad=$rule_itms[1]; $tref_domn=$rule_itms[2]; $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $shrt_domn=substr($tref_domn,0,128); $shrt_antw=substr($tref_antw,0,128); // echo "
".$shrt_domn." ".$shrt_antw; if ($drelt != $shrt_domn) { $drelt=$shrt_domn; $domn_itms=explode("@",$shrt_domn); // print_r($domn_itms); $domn_domn=$domn_itms[0]; // echo ""; } } } // echo "
CNTR DOMN ".$cntr_domn." DOMN ".$domn_domn; if ($invr_domn == null) { $invr_domn=trim($domn_domn); } if ($invr_bzv1 == null) { $invr_bzv1=trim($domn_domn); } if ($invr_domn != null) { echo "
Onderwerp ".$invr_domn.""; } if ($invr_domn == null) { echo "
U gaat verder met ".$shrt_domn; } $sinvr_domn=str_replace(" ","+",$invr_domn); krsort($rslt_array); // print_r($rslt_array); ////////////////////////// $bt=0; if (count($bzkr_array) > 0) { // echo "Op dit adres ".$userip." zijn de volgende gebruikers geregistreerd."; foreach($bzkr_array as $bzkr_key => $bzkr_val) { // echo "
BZKR KEY ".$bzkr_key." BZKR VAL ".$bzkr_val; $bzkr_itms=explode("!!",$bzkr_key); $bzkr_scre=$bzkr_itms[0]; $bzkr_taal=$bzkr_itms[1]; $bzkr_corp=$bzkr_itms[2]; $bzkr_bzkr=$bzkr_itms[3]; $bzkr_mail=$bzkr_itms[4]; $bzkr_datm=$bzkr_itms[5]; $bzkr_levl=$bzkr_itms[6]; $bzkr_ipad=$bzkr_itms[7]; // echo "
BZKR BZKR ".$bzkr_bzkr." BZKR LEVL ".$bzkr_levl." BZKR MAIL ".$bzkr_mail." HOST MAIL ".$host_mail." INVR MAIL ".$invr_mail; if ($bzkr_ipad == $userip and $bzkr_mail != null) { $bzkr_lnes[$bt]=$bzkr_key; $bt=$bt+1; } if ($invr_name == null) { $invr_name = $bzkr_bzkr; } if ($bzkr_mail != $host_mail) { // echo "
Uw rol is bezoeker"; $bzkr_sw=0; } if ($invr_mail == null) { $invr_mail = $host_mail; } if ($bzkr_mail == $host_mail) { echo "
Correct e-mail adres uw rol is webmaster/chatbotleraar"; $bzkr_sw=1; } if ($bzkr_mail == $host_mail and $bzkr_levl == 0) { echo "
Correct e-mail adres uw rol is bezoeker"; $bzkr_sw=1; } if ($invr_corp == null) { $invr_corp=$bzkr_corp; } // echo "
".$bzkr_bzkr."=".$bzkr_role.""; } // echo "
INVR_BZV2 ".$invr_bzv2; // print_r($bzkr_lnes); } $bzv1_lngt=strlen($invr_bzv1); // echo "
Aantal tekens in de uiting ".$bzv1_lngt; if ($bzv1_lngt > 128) { echo "
Meer dan 128 karakters gebruikt. De tekst wordt ingekort tot 128 tekens."; $bzv2_array[$bz2]="Meer dan 128 karakters gebruikt. De tekst wordt ingekort tot 128 tekens."; $bz2=$bz2+1; $invr_bzv1=substr($invr_bzv1,0,127); } //////////////////////////////////////////////////// // echo'
'.$invr_chbt.'. '.$zegt_u_het_maar.''; ?>

".$domn_domn."

<? echo $invr_bzv1; ?>

"; $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); // echo "Segmentanalyse"; echo "Textanalyse"; //////////////////////////////// if ($bzv1_cntr == 1) { echo "Woordonderhoud"; } echo ""; // $calc_rslt=calc_text($invr_bzv1,$invr_chbt,$invr,domn); foreach($calc_rslt as $calc_key => $calc_val) { // echo "
CALC KEY ".$calc_key." CALC val ".$calc_val; } // echo ""; // echo "

CORP ".$invr_corp."

name ".$invr_name."

BZV1 ".$invr_bzv1."

BZV2 ".$invr_bzv2."

IPAD ".$invr_ipad."

CHBT ".$invr_chbt."

FILE ".$invr_file."

".$invr_domn; // echo "

"; // echo "
De taal is ".$invr_taal; /////////////////////////////// ////////////////////// BUILD IPAD TABLE AND COUNTERS //////////// if ($invr_taal == null) { $invr_taal="nederlands"; } ////////////////////// VERTALINGEN $uw_vraag=text_isrt($invr_taal."@uw vraag"); $suw_vraag=str_replace(" ","_",$uw_vraag); $uw_antwoord=text_isrt($invr_taal."@uw antwoord"); $suw_antwoord=str_replace(" ","_",$uw_antwoord); $bezoeker=''.text_isrt($invr_taal."@bezoeker"); $chatbotleraar=text_isrt($invr_taal."@chatbotleraar"); $automatisch_vertalen=text_isrt($invr_taal."@automatisch vertalen"); $vertalingen=text_isrt($invr_taal."@vertalingen"); $uvertalingen=strtoupper($vertalingen); $analyse=text_isrt($invr_taal."@analyse"); $taalkunde=text_isrt($invr_taal."@taalkunde"); $infrastructuur=text_isrt($invr_taal."@infrastructuur"); $aansprakelijkheid=''.text_isrt($invr_taal."@aansprakelijkheid"); $handelsmerken=text_isrt($invr_taal."@handelsmerken"); $statistieken=text_isrt($invr_taal."@statistieken"); $kennisdomeinen=text_isrt($invr_taal."@kennisdomeinen"); $gebruikersteksten=text_isrt($invr_taal."@gebruikersteksten"); $medische_termen=text_isrt($invr_taal."@medische termen"); $alpha_versie=text_isrt($invr_taal."@alpha versie")." ".$modl; $alpha_versie=''.text_isrt($invr_taal."@".$alpha_versie); $sprk_taal=" ".text_isrt($invr_taal."@en spreek")." ".text_isrt($invr_taal."@".$invr_taal); $copy_rght='Copyright Lingvistica BTW NL810085136B01 KvK 18062655'; $copy_rght=text_isrt($invr_taal."@".$copy_rght); $copy_rght=''.$copy_rght.' 2001-2015'; $versie=text_isrt($invr_taal."@alpha versie"); $bezoeker=text_isrt($invr_taal."@bezoeker"); // echo "
BEZOEKER ".$bezoeker; $woordonderhoud=text_isrt($invr_taal."@woordonderhoud"); $engl_taal=text_isrt("engels@".$invr_taal); $spch_taal=text_isrt($invr_taal."@".$invr_taal); $taal=text_isrt($invr_taal."@taal"); $IP_address=text_isrt($invr_taal."@IP address"); $taal=text_isrt($invr_taal."@taal"); $informatie=text_isrt($invr_taal."@informatie"); $internethelper=text_isrt($invr_taal."@internet helper"); $taal_communicatie=text_isrt($invr_taal."@Taal is een menselijk communicatiesysteem dat betekenis kan weergeven en doorgeven"); $zelfstandige_webpagina=text_isrt($invr_taal."@zelfstandige_webpagina"); $zegt_u_het_maar=text_isrt($invr_taal."@zegt u het maar"); $hoe_gebruikt_men=text_isrt($invr_taal."@hoe gebruikt men"); $semanta_spreekt=text_isrt($invr_taal."@Semanta of hoe een computerprogramma zou kunnen leren praten"); $lingvistica_taal=text_isrt($invr_taal."@lingvistica houdt zich bezig met taal alle talen"); $aanmelden=text_isrt($invr_taal."@aanmelden"); $we_spreken_nu=text_isrt($invr_taal."@we spreken nu"); $andere_webpagina=text_isrt($invr_taal."@andere webpagina"); $andere_chatbot=text_isrt($invr_taal."@ik wil een nieuwe chatbot maken"); $onderwerpen=text_isrt($invr_taal."@onderwerpen"); $chatbotnaam=text_isrt($invr_taal."@Chatbotnaam"); $gesprekspartner=text_isrt($invr_taal."@".$invr_chbt); $naar_de_voorgrond=text_isrt($invr_taal."@Naar de voorgrond"); $taal=text_isrt($invr_taal."@taal"); $kenmerk=text_isrt($invr_taal."@kenmerk"); $waarde=text_isrt($invr_taal."@waarde"); $landnaam=text_isrt($invr_taal."@landnaam"); $partners=text_isrt($invr_taal."@partnering ?"); $bzkr_land=text_isrt($invr_taal."@".$invr_bzv1); $bestand_selecteren=text_isrt($invr_taal."@bestand selecteren"); $geen_bestand_geselecteerd=text_isrt($invr_taal."@geen bestand geselecteerd"); $bestand_versturen=text_isrt($invr_taal."@bestand versturen"); $we_gaan_beginnen=text_isrt($invr_taal."@We gaan beginnen"); $verwacht_doorlooptijd_van=text_isrt($invr_taal."@verwacht doorlooptijd van"); $uw_bestand_is_foutief=text_isrt($invr_taal."@uw bestand is foutief"); $probeer_het_svp_opnieuw=text_isrt($invr_taal."@probeer het svp opnieuw"); $ip_adres=text_isrt($invr_taal."@ip-adres"); $taal=''.text_isrt($invr_taal."@Taal"); $land=''.text_isrt($invr_taal."@land"); $product_talen=text_isrt($invr_taal."@Talen waarvoor lingvistica producten en diensten heeft ontwikkeld."); $uw_vraag=text_isrt($invr_taal."@uw vraag"); $bezoeker=''.text_isrt($invr_taal."@bezoeker"); $chatbotleraar=text_isrt($invr_taal."@chatbotleraar"); $vertalingen=text_isrt($invr_taal."@vertalingen"); $analyse=text_isrt($invr_taal."@analyse"); $taalkunde=text_isrt($invr_taal."@taalkunde"); $aansprakelijkheid=''.text_isrt($invr_taal."@aansprakelijkheid"); $handelsmerken=text_isrt($invr_taal."@handelsmerken"); $statistieken=text_isrt($invr_taal."@statistieken"); $kennisdomeinen=text_isrt($invr_taal."@kennisdomeinen"); $gebruikersteksten=text_isrt($invr_taal."@gebruikersteksten"); $medische_termen=text_isrt($invr_taal."@medische termen"); $alpha_versie=text_isrt($invr_taal."@alpha versie")." ".$modl; $alpha_versie=''.text_isrt($invr_taal."@".$alpha_versie); $sprk_taal="
".text_isrt($invr_taal."@en spreek")." ".text_isrt($invr_taal."@".$bzkr_taal); $copy_rght='Copyright 2001-2011 Lingvistica BTW NL810085136B01 KvK 18062655'; $copy_rght=text_isrt($invr_taal."@".$copy_rght); $copy_rght=''.$copy_rght.''; $versie=text_isrt($invr_taal."@alpha versie"); $bezoeker=text_isrt($invr_taal."@bezoeker"); $taal=text_isrt($invr_taal."@language"); $IP_address=text_isrt($invr_taal."@IP address"); $taal=text_isrt($invr_taal."@taal"); $informatie=text_isrt($invr_taal."@informatie"); $internethelper=text_isrt($invr_taal."@internet helper"); $gesprekspartner=text_isrt($invr_taal."@gesprekspartner"); $chbt_hello=""; $lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_bzkr); $leer_uw_computer_praten=text_isrt($invr_taal."@chatbotleraar"); $automatisch_vertalen=text_isrt($invr_taal."@automatisch vertalen"); $lec_text="translate-demos.asp"; $leesplezier=text_isrt($invr_taal."@leesplezier"); $gekozen_chatbot=text_isrt($invr_taal."@Gekozen taal en chatbot"); $taalkundige=text_isrt($invr_taal."@taalkundige"); $bol="http://www.bol.com/nl/boeken/engelse-boeken/index.html"; $uw_vraag=text_isrt($invr_taal."@uw vraag"); if ($invr_taal == "russisch") { $bol="http://www.kniga.com/books/"; } if ($invr_taal == "turks") { $bol="http://www.bol.com/nl/boeken/turkse-boeken/index.html"; } if ($invr_taal == "engels") { $bol="http://www.bol.com/nl/boeken/engelse-boeken/index.html"; } if ($invr_taal == "duits") { $bol="http://www.bol.com/nl/boeken/duitse-boeken/index.html"; } if ($invr_taal == "spaans") { $lec_text="translate-demos_es.asp"; $bol="http://www.bol.com/nl/boeken/spaanse-boeken/index.html"; } if ($invr_taal == "frans") { $lec_text="translate-demos_fr.asp"; $bol="http://www.bol.com/nl/boeken/franse-boeken/index.html"; } if ($invr_taal == "nederlands") { $lec_text="translate-demos_nl.asp"; $bol="http://www.bol.com/nl/boeken/nederlandse-boeken/index.html"; } if ($invr_taal == "portugees") { $lec_text="translate-demos_pt.asp"; } if ($invr_taal == "chinees-s") { $lec_text="translate-demos_zh.asp"; } if ($invr_taal == "chinees-t") { $lec_text="translate-demos_zh.asp"; } if (count($bzkr_array) < 1) { echo "
Nog geen volledige toegangsgegevens."; echo "
Er was nog niet eerder een bezoeker bij ons vanaf dit IP adres: ".$userip." met de naam ".$invr_name; echo "
U kunt zich hier aanmelden"; ?>

---

<? echo $invr_mail; ?> Nogmaals e-mailadres<? echo $invr_eml2; ?> >

extern name ".$invr_eml2; } else { $invr_name=$_POST[eml2]; // echo "
intern name".$invr_eml2; } $sem_vrag=$_GET[mail]; if ($sem_vrag != null) { $invr_mail=$sem_vrag; $sem_domn="extern"; // echo "
extern mail ".$invr_mail; } else { $invr_mail=$_POST[mail]; $sem_domn="intern"; // echo "
intern mail".$invr_mail; } if ($invr_mail != $invr_eml2) { echo "
e-mail adressen komen niet overeen"; exit; } if ($invr_mail != null) { $mail_itms=explode("@",$invr_mail); $invr_name=$mail_itms[0]; $sql = "INSERT INTO bzkr (`ipad`,`taal`,`domn`,`lnks`,`rchs`,`levl`,`datm`) VALUES ('$userip','$invr_taal','semanta', '$invr_name', '$invr_mail', '1', '$datm')"; $logentry_result = mysql_query($sql, $link); // echo "
Voorafgaand schrijven ".$invr_chbt."&".$invr_pwrd; // echo "
".$userip." ".$datm." ".$invr_name." ".$invr_mail; $to = $invr_mail; $cc = 'ed@semanta.nl'; $subject = $modl.'UW aanmelding bij Semanta '; $body = $modl."U bent geregistreerd met deze gegevens: Bezoekersnaam ".$invr_name." en gebruikersnaam ".$invr_mail."
"; $actv="http://www.semanta.nl/index.php?taal=".$invr_taal."&ipad=".$userip."&name=".$invr_name."&mail=".$invr_mail.">U kunt uw gebruikersnaam hier activeren"; $body=$body." ".$actv; // echo "
SMTA RSLT ".$smta_rslt; $headers = "From: bjec@semanta.nl"; $smta_rslt= $to."-".$cc."-".$subject."-".$body."-".$headers; // echo "
SMTA RSLT ".$smta_rslt; mail($cc,$subject, $smta_rslt,$headers); echo "
Er is een e-mail verzonden naar ".$invr_mail; exit; } } ///////////////////////////////////// echo ""; // echo ""; $rslt_array[$tref_datm."!!".$tref_ipad."!!".$tref_domn."!!".$tref_vrag."!!".$tref_antw]=$rslt_array[$tref_datm."!!".$tref_ipad."!!".$tref_domn."!!".$tref_vrag."!!".$tref_antw]+1; } } } if ($invr_domn== null) { $invr_domn=$last_domn; } if ($invr_bzv1 == null) { $invr_bzv1=$invr_domn; } /////////////////////////////// /////////////// IS De vraag een URL ///////////////// // echo "
INVR BZV1 ".$invr_bzv1; if (substr($invr_bzv1,0,4) == "http") { echo "
".$andere_webpagina." ".$invr_BZV1." OF "; echo " URL ".$analyse.""; } if (substr($invr_bzv2,0,4) == "http") { echo "
".$andere_webpagina." ".$invr_BZV1." OF "; echo " URL ".$analyse.""; } $sw_dotx=0; if ($bzv1_cntr==1) { echo "
ENKELVORM ".$invr_bzv1; echo "

DOMEIN	VRAAG	ANTWOORD"; $bzv1_rslt=xtrt_xxxx("----",$text_taal,"bzv1"); ksort($bzv1_rslt); $userip=$_SERVER['REMOTE_ADDR']; // print_r($bzv1_rslt); // echo " BZV1 CNTR ".count($bzv1_rslt); $ro=0; // echo " DATM DATM ".$datm_datm." TIME ".$datm_time; foreach ($bzv1_rslt as $tref_key => $tref_val) { $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $tref_datm=$rule_itms[5]; $datm_itms=explode(" ",$tref_datm); $bzkr_datm=$datm_itms[0]; $bzkr_time=$datm_itms[1]; // echo " DATM ".$bzkr_datm." TODAY ".$datm_datm; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $shrt_domn=substr($tref_domn,0,128); $shrt_antw=substr($tref_antw,0,128); $vrag_itms=explode(" ",$tref_vrag); $cntr_vrag=count($vrag_itms); $antw_itms=explode("/",$tref_antw); $cntr_slsh=count($antw_itms); $antw_itms=explode(" ",$tref_antw); $cntr_spce=count($antw_itms); if ($userip == $tref_ipad) { // echo " BZV1 KEY ".$tref_key."TREF VAL ".$tref_val; // echo " SPCE ".$cntr_spce." VRAG ".$cntr_vrag; } // if ($cntr_vrag > 2 and ($cntr_spce > 2 and $cntr_spce < 256) or ($cntr_slsh > 2)); if ($cntr_vrag > 0) { // echo " IPAD ".$tref_ipad." DATM ".$tref_datm." DOMN ".strlen($tref_domn)." ".$shrt_domn." ANTW ".strlen($tref_antw)." ".$shrt_antw; // echo " IPAD ".$tref_ipad." USERIP ".$userip; if ($userip == $tref_ipad) { // echo " BZV1 KEY ".$tref_key."TREF VAL ".$tref_val; $last_domn=$tref_domn; // echo "
".$tref_domn."	".$tref_vrag."	".$tref_antw."

"; $wrds_rslt=xtrt_xxxx($invr_bzv1,$invr_taal,"dale"); echo "
"; krsort($wrds_rslt); // print_r($wrds_rslt); echo "
WRDS RSLT ".count($wrds_rslt); if (count($wrds_rslt) == 0) { $chbt_resp=$chbt_resp." chbt Ik ken het woord ".$invr_bzv1." niet. Wat weet u van ".$invr_bzv1." en kunt u mij dat hieronder vertellen"; ?>

---

extern rchs ".$invr_rchs; } else { $invr_rchs=$_POST[rchs]; $sem_domn="intern"; // echo "
intern rchs".$invr_rchs; } if ($invr_rchs == null) { echo "Kunt u het nog eens proberen of stel een andere vraag."; exit; } } ksort($wrds_rslt); foreach ($wrds_rslt as $tref_key => $tref_val) { // echo "
WRDS KEY ".$tref_key."WRDS VAL ".$tref_val; $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $domn_itms=explode("@",$tref_domn); $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $chbt_resp=$chbt_resp." chbt ".$tref_antw; if ($tref_vrag != $tref_antw) { $stref_antw=str_replace(" ","+",$tref_antw); $stref_vrag=str_replace(" ","+",$tref_vrag); $sinvr_rchs=str_replace(" ","+",$invr_rchs); $tref_href="".$tref_antw.""; echo "".$tref_vrag."".$tref_href.""; } } if ($sw_dotx == 0) { $tref_href="
".$invr_bzv1.""; $wrds_rslt=xtrt_xxxx($invr_bzv1,$invr_taal,"rule"); // krsort($rule_rslt,SORT_NUMERIC); foreach ($rule_rslt as $tref_key => $tref_val) { // echo "
RULE KEY ".$tref_key."TREF VAL ".$tref_val; $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $domn_itms=explode("@",$tref_domn); $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $chbt_resp=$chbt_resp." chbt ".$tref_antw; echo "".$tref_scre."".$tref_domn."".$invr_chbt."".$tref_antw.""; } } } // echo "
CHATBOT RESPONSE ".$chbt_resp; ////////////////////////// // echo "Wat werd er al eerder besproken via dit IP adres ".$userip.""; echo ""; if ($sw_onderwerp == 0 or $bzv1_cntr == 1 or count($rule_rslt) == 0 or $invr_domn== null) { // echo "
Geen onderwerp of een enkele vorm en U zei ".$invr_bzv1." Dit denk ik ervan

---

"; $bzv2_array[$bz2]="Geen onderwerp of een enkele vorm en U zei ".$invr_bzv1." Dit denk ik ervan

---

"; $bz2=$bz2+1; } echo ""; $rule_rslt=xtrt_xxxx($invr_bzv1,$invr_taal,"rule"); krsort($rule_rslt); echo ""; if (count($rule_rslt) == 0) { $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $tref_href=""; $sinvr_domn=str_replace(" ","+",$invr_domn); // echo ""; ///////////////// } if ($sw_dotx == 0) { $tref_href="
".$invr_bzv1.""; // $invr_domn="Ik heb een of ".count($rule_rslt)." aanknopingspunten gevonden. U kunt het antwoord kiezen waarop u wilt reageren.".$tref_href; $sinvr_domn=str_replace(" ","+",$invr_domn); $ca=0; $rule_rslt=xtrt_xxxx($invr_bzv1,$invr_taal,"rule"); // krsort($rule_rslt,SORT_NUMERIC); foreach ($rule_rslt as $tref_key => $tref_val) { // echo "
RULE KEY ".$tref_key."TREF VAL ".$tref_val; $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; // echo "
TREF ANTW ".$tref_antw; $mtref_antw=str_replace("??",$tref_vrag,$tref_antw); $mtref_antw=str_replace("invr_domn",$invr_domn,$mtref_antw); $mtref_antw=str_replace("invr_chbt",$invr_chbt,$mtref_antw); $mtref_antw=str_replace("invr_corp",$invr_corp,$mtref_antw); $mtref_antw=str_replace("invr_antw",$invr_bzv1,$mtref_antw); $mtref_antw=str_replace("invr_bzv2",$invr_domn,$mtref_antw); $mtref_antw=str_replace("invr_datm",$datm_datm,$mtref_antw); $mtref_antw=str_replace("invr_pts",$invr_pts,$mtref_antw); $mtref_vrag=str_replace("??",$tref_vrag,$tref_vrag); $mtref_vrag=str_replace("invr_chbt",$invr_chbt,$mtref_vrag); $mtref_vrag=str_replace("invr_corp",$invr_corp,$mtref_vrag); $mtref_vrag=str_replace("invr_antw",$invr_bzv1,$mtref_vrag); $mtref_vrag=str_replace("invr_bzv2",$invr_domn,$mtref_vrag); $mtref_vrag=str_replace("invr_datm",$datm_datm,$mtref_vrag); $mtref_vrag=str_replace("invr_pts",$invr_pts,$mtref_vrag); $mtref_vrag=str_replace("invr_domn",$invr_domn,$mtref_vrag); // echo " MTREF ANTW ".$mtref_antw; $tlkd_pos=strpos($invr_bzv1,$tref_vrag,0); // echo "
TLKD POS ".$tlkd_pos; if ($tlkd_pos === false) { // echo "
The string ".$invr_bzv1." was not found in the string ".$tref_vrag; } else { if ($mtref_antw != "splt") { if ($arelt != $mtref_antw) { // echo ""; // echo "".$mtref_antw.""; $arelt=$mtref_antw; } $stref_antw=str_replace(" ","+",$mtref_antw); $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $sinvr_domn=str_replace(" ","+",$invr_domn); $ltref_antw="".$mtref_antw.""; if (substr($tref_antw,0,4) == "http") { $ltref_antw="".$mtref_antw.""; } if ($ca == 0) { $invr_bzv2=$invr_bzv2."

---

".$ltref_antw; $invr_domn=$invr_domn."@".$invr_bzv1; // echo "
Dit denk ik ".$invr_bzv2; } if ( $ca < 5) { $chbt_resp=$chbt_resp." chbt ".$mtref_antw; // echo ""; $cmds_ipad=$userip; $cmds_bzv2=$mtref_vrag."[bzv1[".$text_taal."[".$invr_domn."@".$invr_chbt."[".$mtref_antw."[".$ca; // echo "
GW27 INVR BZV2 ".$cmds_bzv2."
"; // include ("chbt-cmds-code-2.php"); $cmds_bzv2=$mtref_vrag."[vrag[".$text_taal."[".$invr_domn."@".$invr_chbt."[".$mtref_antw."[".$ca; // echo "
GW27 INVR BZV2 ".$cmds_bzv2."
"; include ("chbt-cmds-code-2.php"); echo ""; $ca=$ca+1; } $tref_antw=$rule_itms[4]; $antw_itms=explode(" ",$tref_antw); $stref_antw=str_replace(" ","+",$tref_antw); $stref_vrag=str_replace(" ","+",$tref_vrag); $ltref_antw="
".$tref_vrag.""; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; if ($arelt != $tref_antw) { $arelt=$tref_antw; if ($tref_antw != "splt" and count($antw_itms) > 2) { if ($ca < 10) { // echo "<"; // echo ""; $ca=$ca+1; } } } } } } } echo "

Analyse	Conclusie
Kies het anwoord of de uiting waar u mee verder wilt	".$tref_href."
IS HET HIER".$tref_domn."	".$invr_chbt."	".$mtref_antw."
".$tref_domn."
".$tref_scre."	".$invr_chbt."	".$ltref_antw."
".$tref_vrag." ".$datm."	".$tref_levl."	".$ltref_antw."
".$tref_scre."	".$tref_vrag."	".$tref_antw."
".$ltref_antw."	".$tref_antw."

"; $calc_rslt=calc_text($invr_bzv1); // print_r($calc_rslt); exit; // echo ""; //////////////////// echo ""; //////////////////// SEGMENTATION ////////////////// $line_itms=explode(" ",$invr_bzv1); $bzv1_cntr=count($line_itms); $tlkd_rslt=smts_tlkd($invr_bzv1."@tlkd"); $sw_error=0; $cs=$cs+1; $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $base_rslt=xtrt_xxxx("xdotx".$invr_corp,$invr_taal,"base"); // print_r($base_rslt); foreach ($base_rslt as $tref_key => $tref_val) { // echo "
RULE KEY ".$tref_key."TREF VAL ".$tref_val; $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $domn_itms=explode("@",$tref_domn); // print_r($domn_itms); $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $antw_itms=explode(" ",$tref_antw); $stref_antw=str_replace(" ","+",$tref_antw); $stref_vrag=str_replace(" ","+",$tref_vrag); $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; // echo "
TREF IPAD ".$tref_ipad; } // echo "
"; $bzv2_array[$bz2]="sum@".$invr_domn."@".$invr_bzv1."@".$invr_bzv2; foreach ($bzv2_array as $bzv2_key => $bzv2_val) { // echo "
BZV2 KEY ".$bzv2_key." BZV2 VAL ".$bzv2_val; } // $sinvr_domn=str_replace(" ","+",$chbt_resp); $invr_lgrm=$sinvr_domn; ?>